home *** CD-ROM | disk | FTP | other *** search
/ Gekkan Dennou Club 147 / Gekkan Dennou Club - 2000.8 Vol. 147 (Japan).7z / Gekkan Dennou Club - 2000.8 Vol. 147 (Japan) (Track 1).bin / fdimg / oh!.2hd / OH!DEN_B.LZH / TOOLS / CDC / CDCSRC.LZH / CDRD.S < prev    next >
Text File  |  1995-03-20  |  18KB  |  974 lines
  1. NoCdDisp:
  2.     .dc.b    '【ＣＤＣ】   (c)TNB製作所',0
  3.     .even
  4.  
  5. CRTR21:
  6.     .dc.b    0
  7.     .even
  8. DrawLeds:*---------------------------------------
  9.     *
  10.     *    表示用 
  11.     *
  12.     tst.w    _DisMode    * 0 ; ノーマル 1 ; 表示させない
  13.     beq    @f
  14.     rts
  15. @@:    move.b    $00e8002a,CRTR21
  16.     clr.b    $00e8002a
  17.     lea    _LEDBUF(pc),a0
  18.     movea.l    _DRAWADDS(pc),a1
  19.     movea.l    a1,a2
  20.     adda.l    #$20000,a1    *
  21.     moveq    #$FF,d1
  22.     moveq    #10-1,d0
  23. @@:
  24.     move.b    (a0)+,(a1)
  25.     move.b    (a0)+,$80(a1)
  26.     move.b    (a0)+,$80*2(a1)
  27.     move.b    (a0)+,$80*3(a1)
  28.     move.b    (a0)+,$80*4(a1)
  29.     move.b    (a0)+,$80*5(a1)
  30.     move.b    (a0)+,$80*6(a1)
  31.     move.b    (a0)+,$80*7(a1)
  32.     move.b    (a0)+,$80*8(a1)
  33.     move.b    (a0)+,$80*9(a1)
  34.     move.b    (a0)+,$80*10(a1)
  35.     move.b    (a0)+,$80*11(a1)
  36.     move.b    (a0)+,$80*12(a1)
  37.     move.b    (a0)+,$80*13(a1)
  38.     move.b    (a0)+,$80*14(a1)
  39.     move.b    (a0)+,$80*15(a1)
  40.     move.b    d1,(a2)
  41.     move.b    d1,$80(a2)
  42.     move.b    d1,$80*2(a2)
  43.     move.b    d1,$80*3(a2)
  44.     move.b    d1,$80*4(a2)
  45.     move.b    d1,$80*5(a2)
  46.     move.b    d1,$80*6(a2)
  47.     move.b    d1,$80*7(a2)
  48.     move.b    d1,$80*8(a2)
  49.     move.b    d1,$80*9(a2)
  50.     move.b    d1,$80*10(a2)
  51.     move.b    d1,$80*11(a2)
  52.     move.b    d1,$80*12(a2)
  53.     move.b    d1,$80*13(a2)
  54.     move.b    d1,$80*14(a2)
  55.     move.b    d1,$80*15(a2)
  56.     addq    #1,a1
  57.     addq    #1,a2
  58.     dbra    d0,@b
  59.  
  60.     addq    #1,a1
  61.     addq    #1,a2
  62.     moveq    #36-1,d0
  63. @@:
  64.     move.b    (a0)+,(a1)
  65.     move.b    (a0)+,$80(a1)
  66.     move.b    (a0)+,$80*2(a1)
  67.     move.b    (a0)+,$80*3(a1)
  68.     move.b    (a0)+,$80*4(a1)
  69.     move.b    (a0)+,$80*5(a1)
  70.     move.b    (a0)+,$80*6(a1)
  71.     move.b    (a0)+,$80*7(a1)
  72.     move.b    (a0)+,$80*8(a1)
  73.     move.b    (a0)+,$80*9(a1)
  74.     move.b    (a0)+,$80*10(a1)
  75.     move.b    (a0)+,$80*11(a1)
  76.     move.b    (a0)+,$80*12(a1)
  77.     move.b    (a0)+,$80*13(a1)
  78.     move.b    (a0)+,$80*14(a1)
  79.     move.b    (a0)+,$80*15(a1)
  80.     move.b    d1,(a2)
  81.     move.b    d1,$80(a2)
  82.     move.b    d1,$80*2(a2)
  83.     move.b    d1,$80*3(a2)
  84.     move.b    d1,$80*4(a2)
  85.     move.b    d1,$80*5(a2)
  86.     move.b    d1,$80*6(a2)
  87.     move.b    d1,$80*7(a2)
  88.     move.b    d1,$80*8(a2)
  89.     move.b    d1,$80*9(a2)
  90.     move.b    d1,$80*10(a2)
  91.     move.b    d1,$80*11(a2)
  92.     move.b    d1,$80*12(a2)
  93.     move.b    d1,$80*13(a2)
  94.     move.b    d1,$80*14(a2)
  95.     move.b    d1,$80*15(a2)
  96.     addq    #1,a1
  97.     addq    #1,a2
  98.     dbra    d0,@b
  99.     move.b    CRTR21(pc),$00e8002a
  100.     rts
  101.  
  102. KillLeds:*---------------------------------------
  103.     *
  104.     *    消し用 
  105.     *
  106.     tst.w    _DisMode    * 0 ; ノーマル 1 ; 表示させない
  107.     beq    @f
  108.     rts
  109. @@:    move.b    $00e8002a,CRTR21
  110.     clr.b    $00e8002a
  111.     movea.l    _DRAWADDS(pc),a1
  112.     movea.l    a1,a2
  113.     adda.l    #$20000,a1    *
  114.     moveq    #0,d1
  115.     moveq    #10-1,d0
  116. @@:
  117.     move.b    d1,(a1)
  118.     move.b    d1,$80(a1)
  119.     move.b    d1,$80*2(a1)
  120.     move.b    d1,$80*3(a1)
  121.     move.b    d1,$80*4(a1)
  122.     move.b    d1,$80*5(a1)
  123.     move.b    d1,$80*6(a1)
  124.     move.b    d1,$80*7(a1)
  125.     move.b    d1,$80*8(a1)
  126.     move.b    d1,$80*9(a1)
  127.     move.b    d1,$80*10(a1)
  128.     move.b    d1,$80*11(a1)
  129.     move.b    d1,$80*12(a1)
  130.     move.b    d1,$80*13(a1)
  131.     move.b    d1,$80*14(a1)
  132.     move.b    d1,$80*15(a1)
  133.     move.b    d1,(a2)
  134.     move.b    d1,$80(a2)
  135.     move.b    d1,$80*2(a2)
  136.     move.b    d1,$80*3(a2)
  137.     move.b    d1,$80*4(a2)
  138.     move.b    d1,$80*5(a2)
  139.     move.b    d1,$80*6(a2)
  140.     move.b    d1,$80*7(a2)
  141.     move.b    d1,$80*8(a2)
  142.     move.b    d1,$80*9(a2)
  143.     move.b    d1,$80*10(a2)
  144.     move.b    d1,$80*11(a2)
  145.     move.b    d1,$80*12(a2)
  146.     move.b    d1,$80*13(a2)
  147.     move.b    d1,$80*14(a2)
  148.     move.b    d1,$80*15(a2)
  149.     addq    #1,a1
  150.     addq    #1,a2
  151.     dbra    d0,@b
  152.  
  153.     addq    #1,a1
  154.     addq    #1,a2
  155.     moveq    #36-1,d0
  156. @@:
  157.     move.b    d1,(a1)
  158.     move.b    d1,$80(a1)
  159.     move.b    d1,$80*2(a1)
  160.     move.b    d1,$80*3(a1)
  161.     move.b    d1,$80*4(a1)
  162.     move.b    d1,$80*5(a1)
  163.     move.b    d1,$80*6(a1)
  164.     move.b    d1,$80*7(a1)
  165.     move.b    d1,$80*8(a1)
  166.     move.b    d1,$80*9(a1)
  167.     move.b    d1,$80*10(a1)
  168.     move.b    d1,$80*11(a1)
  169.     move.b    d1,$80*12(a1)
  170.     move.b    d1,$80*13(a1)
  171.     move.b    d1,$80*14(a1)
  172.     move.b    d1,$80*15(a1)
  173.     move.b    d1,(a2)
  174.     move.b    d1,$80(a2)
  175.     move.b    d1,$80*2(a2)
  176.     move.b    d1,$80*3(a2)
  177.     move.b    d1,$80*4(a2)
  178.     move.b    d1,$80*5(a2)
  179.     move.b    d1,$80*6(a2)
  180.     move.b    d1,$80*7(a2)
  181.     move.b    d1,$80*8(a2)
  182.     move.b    d1,$80*9(a2)
  183.     move.b    d1,$80*10(a2)
  184.     move.b    d1,$80*11(a2)
  185.     move.b    d1,$80*12(a2)
  186.     move.b    d1,$80*13(a2)
  187.     move.b    d1,$80*14(a2)
  188.     move.b    d1,$80*15(a2)
  189.     addq    #1,a1
  190.     addq    #1,a2
  191.     dbra    d0,@b
  192.     move.b    CRTR21(pc),$00e8002a
  193.     rts
  194.  
  195. SetHanFont:*----------------------------------------
  196.     *
  197.     *    d1=きゃら
  198.     *    a1=書き込みアドレス
  199.     *[戻り]a1が次のアドレス
  200.     move.l    d1,-(sp)
  201.     moveq    #8,d2
  202.     IOCS    _FNTADR
  203.     movea.l    d0,a0
  204.     move.l    (a0)+,d0
  205.     not.l    d0
  206.     and.l    d0,(a1)+
  207.     move.l    (a0)+,d0
  208.     not.l    d0
  209.     and.l    d0,(a1)+
  210.     move.l    (a0)+,d0
  211.     not.l    d0
  212.     and.l    d0,(a1)+
  213.     move.l    (a0)+,d0
  214.     not.l    d0
  215.     and.l    d0,(a1)+
  216.     move.l    (sp)+,d1
  217.     rts
  218.  
  219. _B_KLE_M:*----------------------------------------
  220.     *
  221.     *    メモリング用表示
  222.     *
  223.     clr.w    _DisSuuzi10 * LED用数字クリア
  224.     bsr    FncBarC
  225.     bsr    FncBarM
  226.     *bsr    FncBar
  227.     bsr    FnkBerChk
  228.     beq    @f
  229.     bsr    DrawLeds
  230. @@:
  231.     move.w    #1,_LEDVMOD
  232.     moveq    #0,d0
  233.     rts
  234.  
  235. _B_KLE_D2:*----------------------------------------
  236.     *
  237.     *   LEDVMODをチェック&直接CDをチェックし表示
  238.     *
  239.     tst.w    _LEDVMOD
  240.     beq    _B_KLE_D
  241.     rts
  242. _B_KLE_D:*----------------------------------------
  243.     *
  244.     *    直接CDをチェックし表示
  245.     *
  246.     move.w    #-1,_MemPtV    *MEM確認表示用メモリポインタ
  247.     clr.w    _DisSuuzi10    * LED用数字クリア
  248.     bsr    FncBarC
  249.     bsr    FncBar2
  250.     bsr    FncBar
  251.     bsr    FnkBerChk
  252.     beq    @f
  253.     bsr    DrawLeds
  254. @@:
  255.     clr.w    _LEDVMOD
  256.     moveq    #0,d0
  257.     rts
  258.  
  259. _B_KLE_H:*----------------------------------------
  260.     *
  261.     *    [HOME]キー用MAX表示
  262.     *
  263.     move.w    #-1,_MemPtV    *MEM確認表示用メモリポインタ
  264.     clr.w    _DisSuuzi10    * LED用数字クリア
  265.     bsr    FncBarC
  266.     bsr    FncBar3
  267.     *bsr    FncBar
  268.     bsr    FnkBerChk
  269.     beq    @f
  270.     bsr    DrawLeds
  271. @@:
  272.     clr.w    _LEDVMOD
  273.     moveq    #0,d0
  274.     rts
  275.  
  276. _B_KLE_K:*----------------------------------------
  277.     *
  278.     *    数値入力時
  279.     *
  280.     move.w    #-1,_MemPtV        *確認表示用メモリポインタ
  281.     bsr    FncBarC
  282.     bsr    FncBarK
  283.     *bsr    FncBar
  284.     bsr    FnkBerChk
  285.     beq    @f
  286.     bsr    DrawLeds
  287. @@:
  288.     move.w    #1,_LEDVMOD
  289.     moveq    #0,d0
  290.     rts
  291.  
  292. _B_KLE_S:*----------------------------------------
  293.     *
  294.     *    シーク用表示
  295.     *        d0=MSF
  296.     *        d1=向き    0:rew 1;ff
  297.     *
  298.     move.w    #-1,_MemPtV    *MEM確認表示用メモリポインタ
  299.     clr.w    _DisSuuzi10    * LED用数字クリア
  300.     move.l    d1,-(sp)
  301.      move.l    d0,-(sp)
  302.      bsr    FncBarC
  303.      move.l    (sp)+,d0
  304.      bsr    FncBarS
  305.      bsr    FncBar
  306.  
  307.     andi.l    #$FFFFFFE0,_Ledflg    *LEDその他の状態
  308.     ori.l    #%10000,_Ledflg        *LEDその他の状態
  309.     lea    LedREW(pc),a1
  310.     move.l    (sp)+,d1
  311.     beq    @f
  312.     lea    LedFF(pc),a1
  313.     ori.l    #%01000,_Ledflg        *LEDその他の状態
  314. @@:    lea    _LEDBUF(pc),a0
  315.     move.l    (a1)+,(a0)+
  316.     move.l    (a1),(a0)
  317.     bsr    FnkBerChk
  318.     beq    @f
  319.     bsr    DrawLeds
  320. @@:
  321.     move.w    #1,_LEDVMOD
  322.     moveq    #0,d1
  323.     rts
  324.  
  325.  
  326.  
  327. FnkBerChk:*----------------------------------------
  328.     *
  329.     *bne    表示出来る
  330.     *beq    表示出来ない
  331.     *
  332.     tst.w    _CdcMode    *0:停止中
  333.     bne    @f
  334.     moveq    #0,d0
  335.     rts
  336. @@:    tst.w    _DisMode    * 0 ; ノーマル 1 ; 表示させない
  337.     beq    @f
  338.     moveq    #0,d0
  339.     rts
  340.     btst.b    #$5,$E82601
  341.     bne    @f
  342.     moveq    #0,d0
  343.     rts
  344. @@:    tst.w    _DisForce    * 0 ; ノーマル 1 ; テキストを使っていても表示させる!!
  345.     bne    @f
  346.     moveq    #1,d1
  347.     moveq    #-1,d2
  348.     IOCS    _TGUSEMD
  349.     cmpi.w    #2,d0
  350.     rts
  351. @@:
  352.     moveq    #1,d1
  353.     moveq    #-1,d2
  354.     IOCS    _TGUSEMD
  355.     cmpi.w    #2,d0
  356.     beq    @f
  357.     clr.w    _DisForce    * 0 ; ノーマル 1 ; テキストを使っていても表示させる!!
  358. @@:    moveq    #-1,d0
  359.     rts
  360.  
  361.  
  362. FncBarC:*-------------------------------------------------
  363.     *
  364.     *    ファンクバー表示 クリア
  365.     *
  366.         ****パッファクリア
  367.     lea    _LEDBUF(pc),a0
  368.     move.w    #(10*16)/4-1,d0
  369. @@:    move.l    #-1,(a0)+
  370.     dbra    d0,@b
  371.     clr.l    _Ledprg        *LED数値 プログラムナンバー
  372.     clr.l    _Ledflg        *LEDその他の状態
  373.     clr.l    _Ledtim
  374.     rts
  375. _FncBarC:*--------------
  376.     lea    _NAMEBUF(pc),a0
  377.     move.w    #(40*16)/4-1,d0
  378. @@:    clr.l    (a0)+
  379.     dbra    d0,@b
  380.     clr.l    _SetNameAdd
  381.     rts
  382.  
  383. FncBar:*-------------------------------------------------
  384.     *
  385.     *    ファンクバー表示 基本部
  386.     *
  387.         ****左上 LED
  388.     move.w    _TrkNo,d0
  389.     beq    FB_L1
  390.         *演奏中?
  391.     lea    LedPlay(pc),a1
  392.     andi.l    #$FFFFFFE0,_Ledflg    *LEDその他の状態
  393.     ori.l    #%00010,_Ledflg        *LEDその他の状態
  394.     move.w    _PauseMode(pc),d0    *0:特に 1:ポーズ中
  395.     beq    FB_L2
  396.     lea    LedPause(pc),a1
  397.     andi.l    #$FFFFFFE0,_Ledflg    *LEDその他の状態
  398.     ori.l    #%00100,_Ledflg        *LEDその他の状態
  399.     bra    FB_L2
  400. FB_L1:    lea    LedStop(pc),a1
  401.     andi.l    #$FFFFFFE0,_Ledflg    *LEDその他の状態
  402.     ori.l    #%00001,_Ledflg        *LEDその他の状態
  403. FB_L2:
  404.     lea    _LEDBUF(pc),a0
  405.     move.l    (a1)+,(a0)+
  406.     move.l    (a1),(a0)
  407.         ****左下 LED
  408.     move.w    _AutoMode(pc),d0    *0:ﾉｰﾏﾙ 1:オート
  409.     beq    @f
  410.     lea    LedLoop(pc),a1
  411.     ori.l    #%01_00000,_Ledflg    *LEDその他の状態
  412.     bra    FB_L3
  413. @@:    move.w    _ReptMode(pc),d0    *0:ﾉｰﾏﾙ 1:リピート
  414.     beq    @f
  415.     lea    LedRept(pc),a1
  416.     ori.l    #%10_00000,_Ledflg    *LEDその他の状態
  417. FB_L3:    lea    _LEDBUF+8(pc),a0
  418.     move.l    (a1)+,(a0)+
  419.     move.l    (a1),(a0)
  420.  
  421. @@:
  422.         ****右上 LED
  423.     move.w    _MemLong(pc),d0        *メモリながさ 0以外ならMEMORY
  424.     beq    @f
  425.     ori.l    #%1_0_00_00000,_Ledflg    *LEDその他の状態
  426.     lea    LedMem(pc),a1
  427.     lea    _LEDBUF+9*16(pc),a0
  428.     move.l    (a1)+,(a0)+
  429.     move.l    (a1),(a0)
  430. @@:
  431.         ****右下 LED
  432.     move.w    _RndMode(pc),d0        *0:ﾉｰﾏﾙ 1:ランダム
  433.     beq    @f
  434.     ori.l    #%0_1_00_00000,_Ledflg    *LEDその他の状態
  435.     lea    LedRand(pc),a1
  436.     bra    FB_L4
  437. @@:    move.w    _BgmMode(pc),d0        *0:ﾉｰﾏﾙ 1:ＢＧＭ
  438.     beq    @f
  439.     ori.l    #%10_0_00_00000,_Ledflg    *LEDその他の状態
  440.     lea    LedBgm(pc),a1
  441. FB_L4:    lea    _LEDBUF+9*16+8(pc),a0
  442.     move.l    (a1)+,(a0)+
  443.     move.l    (a1),(a0)
  444. @@:
  445.     rts
  446.  
  447.  
  448. FncBar2:*-------------------------------------------------
  449.     *
  450.     *    ファンクバー表示２
  451.     *        演奏中なら表示
  452.     *
  453.     tst.w    _CDIN
  454.     bne    @f
  455.     bra    CdcTitle_
  456. @@:
  457.     move.w    _TrkNo(pc),d0
  458.     bne    FB2_L1
  459.  
  460. FB2_L2:        *演奏していない
  461.     moveq    #0,d0
  462.     moveq    #0,d6
  463.     bsr    ViewName
  464.     move.l    _CdTrak(pc),d0
  465.     bsr    SuziLed    *数字
  466.     move.l    _CdLong(pc),d0
  467.     bsr    SuziLed3
  468.     lea    _LEDBUF+3*16(pc),a1
  469.     move.w    #$F000+'M',d1
  470.     bsr    SetHanFont
  471.     move.w    #$F000+'A',d1
  472.     bsr    SetHanFont
  473.     move.w    #$F000+'X',d1
  474.     bsr    SetHanFont
  475.     move.w    #$F000+'=',d1
  476.     bsr    SetHanFont
  477.     rts
  478. FB2_L1:        *演奏中
  479.     move.l    _plyinf+4,d0        *plyinf.track_no;
  480.     bsr    SuziLed    *数字
  481.     move.l    _plyinf+8,d0        *plyinf.time;
  482.     tst.w    _LEDTMRV
  483.     bne    @f
  484.     bsr    SuziLed3
  485.     bra    FB2_L3
  486. @@:    bsr    SuziLed4
  487. FB2_L3:
  488.     move.l    _plyinf+4,d0        *plyinf.track_no;
  489.     move.l    _plyinf+8,d6        *plyinf.time;
  490.     bsr    ViewName
  491.     move.w    _MemLong(pc),d0        *メモリながさ 0以外ならMEMORY表示
  492.     beq    @f
  493.     moveq    #0,d0
  494.     move.w    _MemPt(pc),d0
  495.     addq.w    #1,d0
  496.     beq    @f
  497.     bsr    SuziLed2
  498. @@:
  499.     rts
  500.  
  501. FncBar3:*-------------------------------------------------
  502.     *
  503.     *    ファンクバー表示３
  504.     *        総曲数とＣＤタイトル表示
  505.     *
  506.     tst.w    _CDIN        *0:CDは入っていない 1:入っている
  507.     bne    @f
  508.     bra    CdcTitle_
  509.     rts
  510. @@:
  511.     move.l    #-1,_Ledprg
  512.     moveq    #0,d0
  513.     moveq    #0,d6
  514.     bsr    ViewName
  515.     move.l    _CdTrak(pc),d0
  516.     bsr    SuziLed    *数字
  517.     move.l    _CdLong(pc),d0
  518.     bsr    SuziLed3
  519.     lea    _LEDBUF+3*16(pc),a1
  520.     move.w    #$F000+'M',d1
  521.     bsr    SetHanFont
  522.     move.w    #$F000+'A',d1
  523.     bsr    SetHanFont
  524.     move.w    #$F000+'X',d1
  525.     bsr    SetHanFont
  526.     move.w    #$F000+'=',d1
  527.     bsr    SetHanFont
  528.     rts
  529.  
  530. FncBarK:*-------------------------------------------------
  531.     *
  532.     *    ファンクバー表示 input
  533.     *        キー入力時用
  534.     *
  535.     move.l    #-2,_Ledprg
  536.     bsr    _DisSuuziCalc
  537.     move.l    d0,-(sp)
  538.     bsr    SuziLed    *数字
  539.     lea    _LEDBUF+3*16(pc),a1
  540.     move.w    #$F000+'I',d1
  541.     bsr    SetHanFont
  542.     move.w    #$F000+'N',d1
  543.     bsr    SetHanFont
  544.     move.w    #$F000+'P',d1
  545.     bsr    SetHanFont
  546.     move.w    #$F000+'=',d1
  547.     bsr    SetHanFont
  548.  
  549.     *bsr    CdTrkMax
  550.     move.l    _CdTrak(pc),d0
  551.     move.l    (sp)+,d1
  552.     bne    @f
  553.     pea    FBK_nul(pc)
  554.     bsr    _SetNameLed
  555.     addq    #4,sp
  556.     rts
  557.  
  558. @@:    cmp.l    d0,d1
  559.     bls    @f
  560.     pea    FBK_nul(pc)
  561.     bsr    _SetNameLed
  562.     addq    #4,sp
  563.     rts
  564. @@:    move.l    d1,-(sp)
  565.     move.l    d1,d0
  566.     add.l    d0,d0
  567.     add.l    d0,d0
  568.     lea    _ListLong(pc),a0    **ながさ時間
  569.     move.l    (a0,d0.l),d0
  570.     bsr    SuziLed3
  571.     move.l    (sp)+,d0
  572.     moveq    #0,d6
  573.     bsr    ViewName
  574.     rts
  575. FBK_nul:
  576.     .dc.b    0,0
  577.  
  578. FncBarM:*-------------------------------------------------
  579.     *
  580.     *    ファンクバー表示 memory
  581.     *        メムビュー
  582.     *
  583.     move.w    _MemLong(pc),d0        *メモリながさ 0以外ならMEMORY
  584.     bne    @f
  585.     rts
  586. @@:    moveq    #0,d0
  587.     move.w    _MemPtV(pc),d0
  588.     bpl    @f
  589.     rts
  590. @@:
  591.     addq.w    #1,d0
  592.     bsr    SuziLed2    *数字
  593.  
  594.     move.w    _MemPtV(pc),d0
  595.     lea    _MemSock(pc),a1
  596.     move.b    0(a1,d0.w),d0
  597.     andi.l    #$00FF,d0
  598.     move.l    d0,-(sp)
  599.     bsr    SuziLed    *数字
  600.  
  601.     move.l    (sp),d0
  602.     add.l    d0,d0
  603.     add.l    d0,d0
  604.     lea    _ListLong(pc),a0    **ながさ時間
  605.     move.l    (a0,d0.l),d0
  606.     bsr    SuziLed3
  607.     move.l    (sp)+,d0
  608.     moveq    #0,d6
  609.     bsr    ViewName
  610.  
  611.     rts
  612.  
  613. FncBarS:*-------------------------------------------------
  614.     *
  615.     *    ファンクバー表示 SEEK中
  616.     *        d0=表示MSF
  617.     *
  618.     move.l    d0,d7
  619.     tst.w    _CDIN
  620.     bne    @f
  621.     bra    CdcTitle_
  622. @@:
  623.     moveq    #0,d0
  624.     move.w    _TrkNo(pc),d0
  625.     bsr    SuziLed    *数字
  626.     move.l    d7,d0
  627.     tst.w    _LEDTMRV
  628.     bne    @f
  629.     bsr    SuziLed3
  630.     bra    FBS_L3
  631. @@:    bsr    SuziLed4
  632. FBS_L3:
  633.     moveq    #0,d0
  634.     move.w    _TrkNo(pc),d0
  635.     move.l    d7,d6
  636.     bsr    ViewName
  637.     move.w    _MemLong(pc),d0        *メモリながさ 0以外ならMEMORY表示
  638.     beq    @f
  639.     moveq    #0,d0
  640.     move.w    _MemPt(pc),d0
  641.     addq.w    #1,d0
  642.     beq    @f
  643.     bsr    SuziLed2
  644. @@:
  645.     rts
  646.  
  647. SetPtimeRev:
  648.     *-------------------------------------------------
  649.     *    タイム リバース
  650.     *
  651.     rts
  652.  
  653. SuziLed:*-------------------------------------------------
  654.     *
  655.     *    数字表示
  656.     *        d0=数字
  657.     *
  658.     move.l    d0,_Ledtrk
  659.     move.l    d0,d1
  660.     divu    #10,d1    * 1の位 : 10の位
  661.     or.l    #$00300030,d1
  662.     lea    _LEDBUF+7*16(pc),a1
  663.     bsr    SetHanFont
  664.     swap    d1
  665.     bsr    SetHanFont
  666.     rts
  667. SuziLed2:*------------------------------------------------
  668.     *
  669.     *    Prog.数字表示
  670.     *        d0=数字
  671.     *
  672.     move.l    d0,_Ledprg
  673.     move.l    d0,d3
  674.     lea    _LEDBUF+3*16(pc),a1
  675.     move.w    #$F000+'P',d1
  676.     bsr    SetHanFont
  677.     move.l    d3,d1
  678.     divu    #10,d1    * 1の位 : 10の位
  679.     or.l    #$F030F030,d1
  680.     bsr    SetHanFont
  681.     swap    d1
  682.     bsr    SetHanFont
  683.     move.w    #$F000+'=',d1
  684.     bsr    SetHanFont
  685.     rts
  686. SuziLed3:*------------------------------------------------
  687.     *
  688.     *    TIME 数字表示
  689.     *        d0=MM:SS:FF
  690.     *
  691.     move.l    d0,_Ledtim
  692.     move.l    d0,d3
  693.     lea    _LEDBUF+1*16(pc),a1
  694.     move.l    d3,d1
  695.     swap    d1
  696.     andi.l    #$00FF,d1
  697.     divu    #10,d1    * 1の位 : 10の位
  698.     or.l    #$F230F230,d1
  699.     bsr    SetHanFont
  700.     swap    d1
  701.     bsr    SetHanFont
  702.     move.w    #$F200+':',d1
  703.     bsr    SetHanFont
  704.     move.l    d3,d1
  705.     lsr.l    #8,d1
  706.     andi.l    #$00FF,d1
  707.     divu    #10,d1    * 1の位 : 10の位
  708.     or.l    #$F230F230,d1
  709.     bsr    SetHanFont
  710.     swap    d1
  711.     bsr    SetHanFont
  712.     rts
  713. SuziLed4:*------------------------------------------------
  714.     *
  715.     *    REV.TIME 数字表示 
  716.     *        d0=MM:SS:FF
  717.     *
  718.     ori.l    #$8000_0000,_Ledflg        *LEDその他の状態
  719.     move.l    d0,_Ledtim
  720.     move.l    d0,-(sp)
  721.     move.l    _plyinf+16,-(sp)
  722.     bsr    _subtime
  723.     addq.l    #8,sp
  724.     move.l    d0,d3
  725.     lea    _LEDBUF+1*16(pc),a1
  726.     lea    LedRev(pc),a0
  727.     move.l    (a0),(a1)
  728.     move.l    4(a0),4(a1)
  729.     move.l    d3,d1
  730.     swap    d1
  731.     andi.l    #$00FF,d1
  732.     divu    #10,d1    * 1の位 : 10の位
  733.     or.l    #$F230F230,d1
  734.     bsr    SetHanFont
  735.     swap    d1
  736.     bsr    SetHanFont
  737.     move.w    #$F200+':',d1
  738.     bsr    SetHanFont
  739.     move.l    d3,d1
  740.     lsr.l    #8,d1
  741.     andi.l    #$00FF,d1
  742.     divu    #10,d1    * 1の位 : 10の位
  743.     or.l    #$F230F230,d1
  744.     bsr    SetHanFont
  745.     swap    d1
  746.     bsr    SetHanFont
  747.     rts
  748.  
  749. ViewName:*-------------------------------------------
  750.     *ファンクバーにタイトル
  751.     *    d0=曲ナンバー    0;ならＣＤ名を
  752.     *    d6=MSF オフセット値
  753.     *
  754.     andi.l    #$00FFFF,d0
  755.     move.l    d0,d7
  756.     bne    VN_L1
  757.         **ＣＤ名
  758.     lea    _CdName(pc),a1
  759.     bra    VN_L3
  760. VN_L1:
  761.     move.l    d6,-(sp)
  762.     move.l    d7,-(sp)
  763.     bsr    _NamePoint
  764.     addq.l    #8,sp
  765.     movea.l    d0,a1
  766. VN_L3:
  767.     tst.b    (a1)
  768.     bne    @f
  769.     lea    VN_LR(pc),a1
  770. @@:    move.l    a1,-(sp)
  771.     bsr    _SetNameLed
  772.     addq    #4,sp
  773.     rts
  774.  
  775. VN_LR:    .dc.b    '--------',0
  776.     .even
  777.  
  778. CdcTitle_:*----------------------------------------
  779.     bsr    _CDROM_chk
  780.     cmpi.l    #-3,d0
  781.     bne    @f
  782.     bsr    _CDCOFF
  783. @@:
  784. CdcTitle:*----------------------------------------
  785.     lea    _LEDBUF+4*16(pc),a1
  786.     move.w    #$F000+'N',d1
  787.     bsr    SetHanFont
  788.     move.w    #$F000+'O',d1
  789.     bsr    SetHanFont
  790.     move.w    #' ',d1
  791.     bsr    SetHanFont
  792.     move.w    #'C',d1
  793.     bsr    SetHanFont
  794.     move.w    #'D',d1
  795.     bsr    SetHanFont
  796.  
  797.     lea    _LEDBUF+1*16(pc),a1
  798.     move.w    #$F200+'-',d1
  799.     bsr    SetHanFont
  800.     bsr    SetHanFont
  801.     move.w    #$F200+':',d1
  802.     bsr    SetHanFont
  803.     move.w    #$F200+'-',d1
  804.     bsr    SetHanFont
  805.     bsr    SetHanFont
  806.  
  807.     clr.b    _CdName
  808.     pea    NoCdDisp(pc)
  809.     bsr    _SetNameLed
  810.     addq    #4,sp
  811.  
  812.     rts
  813.  
  814.  
  815.     *----------------------------------------
  816.     .globl    _SetFont
  817.     .globl    _SetSp
  818. _SetFont:
  819.     *SetFont(ad,f)
  820.     *char    *ad; 書き込みアドレス
  821.     *int    f;   漢字コード
  822.     *[戻り値] xバイト
  823.     move.l    8(sp),d1
  824.     beq    _SetSp
  825.     moveq    #8,d2
  826.     IOCS    _FNTADR
  827.     movea.l    d0,a0
  828.     movea.l    4(sp),a1
  829.     moveq    #15,d0
  830.     tst.w    d1
  831.     beq    SF8
  832.         *fn16
  833. @@:    move.b    (a0)+,d2
  834.     *not.b    d2
  835.     move.b    d2,(a1)
  836.     move.b    (a0)+,d2
  837.     *not.b    d2
  838.     move.b    d2,16(a1)
  839.     addq.w    #1,a1
  840.     dbra    d0,@b
  841.     moveq    #2,d0
  842.     rts
  843. SF8:        **fn8
  844. @@:    move.b    (a0)+,d2
  845.     *not.b    d2
  846.     move.b    d2,(a1)+
  847.     dbra    d0,@b
  848.     moveq    #1,d0
  849.     rts
  850.  
  851. _SetSp:
  852.     *SetSp(ad)
  853.     movea.l    4(sp),a1
  854.     moveq    #15,d0
  855. @@:
  856.     *move.b    #$FF,(a1)+
  857.     clr.b    (a1)+
  858.     dbra    d0,@b
  859.     moveq    #1,d0
  860.     rts
  861.  
  862.  
  863.     ********************************************
  864. LedPlay:
  865.     .dc.b    %11111111
  866.     .dc.b    %10111111
  867.     .dc.b    %10001111
  868.     .dc.b    %10000011
  869.     .dc.b    %10000001
  870.     .dc.b    %10000011
  871.     .dc.b    %10001111
  872.     .dc.b    %10111111
  873.     .even
  874. LedStop:
  875.     .dc.b    %11111111
  876.     .dc.b    %11111111
  877.     .dc.b    %10000001
  878.     .dc.b    %10000001
  879.     .dc.b    %10000001
  880.     .dc.b    %10000001
  881.     .dc.b    %10000001
  882.     .dc.b    %11111111
  883.     .even
  884. LedPause:
  885.     .dc.b    %11111111
  886.     .dc.b    %11111111
  887.     .dc.b    %10011001
  888.     .dc.b    %10011001
  889.     .dc.b    %10011001
  890.     .dc.b    %10011001
  891.     .dc.b    %10011001
  892.     .dc.b    %11111111
  893.     .even
  894. LedLoop:
  895.     .dc.b    %11111111
  896.     .dc.b    %11001111
  897.     .dc.b    %10111111
  898.     .dc.b    %10111111
  899.     .dc.b    %10110111
  900.     .dc.b    %11000011
  901.     .dc.b    %11110111
  902.     .dc.b    %11111111
  903.     .even
  904. LedRept:
  905.     .dc.b    %11101111
  906.     .dc.b    %11000011
  907.     .dc.b    %10101101
  908.     .dc.b    %10111101
  909.     .dc.b    %10110101
  910.     .dc.b    %11000011
  911.     .dc.b    %11110111
  912.     .dc.b    %11111111
  913.     .even
  914. LedMem:
  915.     .dc.b    %11111111
  916.     .dc.b    %10111011
  917.     .dc.b    %10010011
  918.     .dc.b    %10101011
  919.     .dc.b    %10101011
  920.     .dc.b    %10111011
  921.     .dc.b    %10111011
  922.     .dc.b    %11111111
  923.     .even
  924. LedRand:
  925.     .dc.b    %11111111
  926.     .dc.b    %10000111
  927.     .dc.b    %10111011
  928.     .dc.b    %10111011
  929.     .dc.b    %10100111
  930.     .dc.b    %10110011
  931.     .dc.b    %10111011
  932.     .dc.b    %11111111
  933.     .even
  934. LedBgm:
  935.     .dc.b    %11111111
  936.     .dc.b    %10000111
  937.     .dc.b    %10111011
  938.     .dc.b    %10000111
  939.     .dc.b    %10111011
  940.     .dc.b    %10111011
  941.     .dc.b    %10000111
  942.     .dc.b    %11111111
  943.     .even
  944.  
  945. LedFF:
  946.     .dc.b    %11111111
  947.     .dc.b    %10110111
  948.     .dc.b    %11011011
  949.     .dc.b    %11101101
  950.     .dc.b    %11110110
  951.     .dc.b    %11101101
  952.     .dc.b    %11011011
  953.     .dc.b    %10110111
  954.     .even
  955. LedREW:    .dc.b    %11111111
  956.     .dc.b    %11110110
  957.     .dc.b    %11101101
  958.     .dc.b    %11011011
  959.     .dc.b    %10110111
  960.     .dc.b    %11011011
  961.     .dc.b    %11101101
  962.     .dc.b    %11110110
  963.     .even
  964. LedRev:
  965.     .dc.b    %11111111
  966.     .dc.b    %11111111
  967.     .dc.b    %10011111
  968.     .dc.b    %10101111
  969.     .dc.b    %10011010
  970.     .dc.b    %10101010
  971.     .dc.b    %10101101
  972.     .dc.b    %11111111
  973.     .even
  974.